﻿Imports Utilitario
Imports Negocio
Imports System.IO.Directory
Public Class frmPeriodo

    'Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
    '    If cmbAnio.SelectedItem = "" Then
    '        MsgBox("Debe seleccionar Año del periodo")
    '        Exit Sub
    '    End If
    '    If cmbMes.SelectedItem = "" Then
    '        MsgBox("Debe seleccionar Mes del periodo")
    '        Exit Sub
    '    End If
    '    Dim util As New Utilitario.Utiles
    '    Dim ejecuta As New EjecutorNegocio
    '    Dim ruta As String = ""
    '    ruta = Empresa.gCIA_Carpeta & "\" & cmbAnio.SelectedItem.ToString().Substring(2, 2) & "" & util.codigoMes(cmbMes.SelectedItem.ToString)

    '    If Not Exists(ruta) Then
    '        MsgBox("Periodo no Aperturado")
    '        Exit Sub
    '    End If

    '    If ejecuta.ExisteQuery("SELECT * FROM ARINGDO1 WHERE alltrim(DOCTO)=''", ruta & "\ARINGDO1.dbf") Then
    '        MsgBox("No se pueden realizar cambios. Periodo cerrado")
    '        Exit Sub
    '    End If

    '    Variables.periodo = cmbAnio.SelectedItem.ToString().Substring(2, 2) & "" & util.codigoMes(cmbMes.SelectedItem.ToString)
    '    Variables.periodoV = cmbMes.SelectedItem.ToString & " " & cmbAnio.SelectedItem
    '    DialogResult = DialogResult.OK
    'End Sub
    
End Class